home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / madcow1a / madcowte.bas < prev    next >
BASIC Source File  |  1999-09-30  |  789b  |  13 lines
  1. Attribute VB_Name = "sndMain"
  2. '// Plays Midi, Mpeg, Mp3 Files (.mid .mpeg .mp3)
  3. Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
  4.  
  5. '// Plays Wave Files (.wav)
  6. Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
  7.     Public Const SND_SYNC = 0 ' Freeze program until sound is done
  8.     Public Const SND_ASYNC = 1 ' Continue program while sound plays
  9.     Public Const SND_NODEFAULT = 2 ' Don't beep if sound not found
  10.     Public Const SND_LOOP = 8
  11.     Public Const SND_NOSTOP = 16 ' The function returns false if another sound is playing
  12.  
  13.